home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Info / TeachU14 / SAMS / Code / Day08 / etmain.dfm / etmain.txt
Encoding:
Text File  |  1998-02-08  |  3.0 KB  |  141 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 108
  4.   Width = 477
  5.   Height = 364
  6.   Caption = 'Event Test Program'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object Memo: TMemo
  15.     Left = 0
  16.     Top = 25
  17.     Width = 284
  18.     Height = 312
  19.     Align = alClient
  20.     Lines.Strings = (
  21.       'Type text in here or click/double click with the mouse. '
  22.       'Oberserve the changes in the checkbox controls to the'
  23.       'right. To clear the check boxes click the '#39'Clear All'#39' Button.'
  24.       'The  check boxes will automatically reset after 5 seconds.')
  25.     TabOrder = 0
  26.     OnClick = MemoClick
  27.     OnDblClick = MemoDblClick
  28.     OnKeyDown = MemoKeyDown
  29.     OnKeyPress = MemoKeyPress
  30.     OnKeyUp = MemoKeyUp
  31.     OnMouseDown = MemoMouseDown
  32.     OnMouseUp = MemoMouseUp
  33.   end
  34.   object Panel2: TPanel
  35.     Left = 284
  36.     Top = 25
  37.     Width = 185
  38.     Height = 312
  39.     Align = alRight
  40.     BevelOuter = bvNone
  41.     TabOrder = 1
  42.     object ClearAll: TButton
  43.       Left = 54
  44.       Top = 276
  45.       Width = 75
  46.       Height = 25
  47.       Caption = 'Clear All'
  48.       TabOrder = 0
  49.       OnClick = ClearAllClick
  50.     end
  51.     object GroupBox1: TGroupBox
  52.       Left = 16
  53.       Top = 0
  54.       Width = 153
  55.       Height = 145
  56.       Caption = 'Mouse Events'
  57.       TabOrder = 1
  58.       object MouseDown: TCheckBox
  59.         Left = 16
  60.         Top = 24
  61.         Width = 97
  62.         Height = 17
  63.         Caption = 'Mouse Down'
  64.         TabOrder = 0
  65.       end
  66.       object MouseUp: TCheckBox
  67.         Left = 16
  68.         Top = 53
  69.         Width = 97
  70.         Height = 17
  71.         Caption = 'Mouse Up'
  72.         TabOrder = 1
  73.       end
  74.       object MouseClick: TCheckBox
  75.         Left = 16
  76.         Top = 83
  77.         Width = 129
  78.         Height = 17
  79.         Caption = 'Mouse Click (OnClick)'
  80.         TabOrder = 2
  81.       end
  82.       object MouseDblClick: TCheckBox
  83.         Left = 16
  84.         Top = 112
  85.         Width = 129
  86.         Height = 17
  87.         Caption = 'Mouse Double Click'
  88.         TabOrder = 3
  89.       end
  90.     end
  91.     object GroupBox2: TGroupBox
  92.       Left = 16
  93.       Top = 160
  94.       Width = 153
  95.       Height = 105
  96.       Caption = 'Key Events'
  97.       TabOrder = 2
  98.       object KeyDown: TCheckBox
  99.         Left = 16
  100.         Top = 24
  101.         Width = 97
  102.         Height = 17
  103.         Caption = 'Key Down'
  104.         TabOrder = 0
  105.       end
  106.       object KeyPress: TCheckBox
  107.         Left = 16
  108.         Top = 52
  109.         Width = 97
  110.         Height = 17
  111.         Caption = 'Key Press'
  112.         TabOrder = 1
  113.       end
  114.       object KeyUp: TCheckBox
  115.         Left = 16
  116.         Top = 80
  117.         Width = 97
  118.         Height = 17
  119.         Caption = 'Key Up'
  120.         TabOrder = 2
  121.       end
  122.     end
  123.   end
  124.   object Panel1: TPanel
  125.     Left = 0
  126.     Top = 0
  127.     Width = 469
  128.     Height = 25
  129.     Align = alTop
  130.     Alignment = taLeftJustify
  131.     BevelOuter = bvNone
  132.     TabOrder = 2
  133.   end
  134.   object Timer: TTimer
  135.     Enabled = False
  136.     Interval = 5000
  137.     OnTimer = TimerTimer
  138.     Left = 432
  139.   end
  140. end
  141.